%% convertmmHgToDynescm2
%
% Takes in pressure values in mmHg and converts to dynes/cm^2
%
%% Syntax
% [PressureValues_dynescm2] = convertmmHgToDynescm2(PressureValues_mmHg)
%
% [data_new] = convertmmHgToDynescm2(data)
%
%
%% Description
% Takes in pressure values in mmHg and converts to dynes/cm^2
%
%
%% Arguments
%* PressureValues_mmHg                  - Double: A double vector of
%                                         pressure values in units of mmHg
%
%
%% Returns
%* PressureValues_dynescm2                - Double: A double vector of
%                                         pressure values in units of
%                                         dynes/cm^2
%                              
%% Function Side Effects
%* N/A
%
%% Exceptions
%* An error is thrown if input is not of type double
%
%% See Also
% N/A

function [PressureValues_dynescm2] = convertmmHgToDynescm2(PressureValues_mmHg)

if isa(PressureValues_mmHg, 'double') ~=1
    type = class(PressureValues_mmHg);
    error(sprintf(('Pressure values in mmHg are of type %s please change to type double'), type))
    
end

PressureValues_dynescm2 = PressureValues_mmHg * 1333;


end


